ChrisEscobedo_A1

knitr::opts_chunk$set(echo = F, warnings = F, messages = F)
library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──

## ✓ ggplot2 3.3.5     ✓ purrr   0.3.4
## ✓ tibble  3.1.4     ✓ dplyr   1.0.7
## ✓ tidyr   1.1.3     ✓ stringr 1.4.0
## ✓ readr   2.0.1     ✓ forcats 0.5.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

library(stringr)
library(lubridate)

## 
## Attaching package: 'lubridate'

## The following objects are masked from 'package:base':
## 
##     date, intersect, setdiff, union

## [1] "pge/PGE_2017_Q1_ElectricUsageByZip.csv"
## [1] "pge/PGE_2017_Q1_GasUsageByZip.csv"
## [1] "pge/PGE_2017_Q2_ElectricUsageByZip.csv"
## [1] "pge/PGE_2017_Q2_GasUsageByZip.csv"
## [1] "pge/PGE_2017_Q3_ElectricUsageByZip.csv"
## [1] "pge/PGE_2017_Q3_GasUsageByZip.csv"
## [1] "pge/PGE_2017_Q4_ElectricUsageByZip.csv"
## [1] "pge/PGE_2017_Q4_GasUsageByZip.csv"
## [1] "pge/PGE_2018_Q1_ElectricUsageByZip.csv"
## [1] "pge/PGE_2018_Q1_GasUsageByZip.csv"
## [1] "pge/PGE_2018_Q2_ElectricUsageByZip.csv"
## [1] "pge/PGE_2018_Q2_GasUsageByZip.csv"
## [1] "pge/PGE_2018_Q3_ElectricUsageByZip.csv"
## [1] "pge/PGE_2018_Q3_GasUsageByZip.csv"
## [1] "pge/PGE_2018_Q4_ElectricUsageByZip.csv"
## [1] "pge/PGE_2018_Q4_GasUsageByZip.csv"
## [1] "pge/PGE_2019_Q1_ElectricUsageByZip.csv"
## [1] "pge/PGE_2019_Q1_GasUsageByZip.csv"
## [1] "pge/PGE_2019_Q2_ElectricUsageByZip.csv"
## [1] "pge/PGE_2019_Q2_GasUsageByZip.csv"
## [1] "pge/PGE_2019_Q3_ElectricUsageByZip.csv"
## [1] "pge/PGE_2019_Q3_GasUsageByZip.csv"
## [1] "pge/PGE_2019_Q4_ElectricUsageByZip.csv"
## [1] "pge/PGE_2019_Q4_GasUsageByZip.csv"
## [1] "pge/PGE_2020_Q1_ElectricUsageByZip.csv"
## [1] "pge/PGE_2020_Q1_GasUsageByZip.csv"
## [1] "pge/PGE_2020_Q2_ElectricUsageByZip.csv"
## [1] "pge/PGE_2020_Q2_GasUsageByZip.csv"
## [1] "pge/PGE_2020_Q3_ElectricUsageByZip.csv"
## [1] "pge/PGE_2020_Q3_GasUsageByZip.csv"
## [1] "pge/PGE_2020_Q4_ElectricUsageByZip.csv"
## [1] "pge/PGE_2020_Q4_GasUsageByZip.csv"
## [1] "pge/PGE_2021_Q1_ElectricUsageByZip.csv"
## [1] "pge/PGE_2021_Q1_GasUsageByZip.csv"
## [1] "pge/PGE_2021_Q2_ElectricUsageByZip.csv"
## [1] "pge/PGE_2021_Q2_GasUsageByZip.csv"
## [1] "pge/PGE_2021_Q3_ElectricUsageByZip.csv"
## [1] "pge/PGE_2021_Q3_GasUsageByZip.csv"
## [1] "pge/PGE_2021_Q4_ElectricUsageByZip.csv"
## [1] "pge/PGE_2021_Q4_GasUsageByZip.csv"

Something to Note is that there appears to be no electricity usage, commercial or residential, at the beginning of 2020. There likely was a disruption to data collection that occured at this time due to the onset of the pandemic.

Other than this disruption, it does not seem that there are major changes in average energy and gas useage over time.